perm filename TEST1.SAI[SAI,BGB] blob
sn#105715 filedate 1974-06-06 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "TEST1"
C00004 ENDMK
C⊗;
BEGIN "TEST1"
REQUIRE "GEOMES.HDR" SOURCE_FILE;
REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
INTEGER B1,B2,J1,J2,J3,J4,J5,J6,C1,CHR,I;
MKUNIV;GEODPY;
B1 ← INB3D("ARM[DAT,BGB]"); α MODEL OF THE ARM;
B2 ← INB3D("TABLE[DAT,BGB]"); α MODEL OF THE ARM;
J1 ← FDNAME("JOINT1"); α SHOULDER - ABOUT VERTICAL;
J2 ← FDNAME("JOINT2"); α ARM - ABOUT HORIZONTAL;
J3 ← FDNAME("JOINT3"); α SLIDE;
J4 ← FDNAME("JOINT4"); α SLIDE;
J5 ← FDNAME("JOINT5"); α SLIDE;
J6 ← FDNAME("JOINT6"); α SLIDE;
C1 ← INCAM("ARMCAM[DAT,BGB]");
SHOW2(0,0);
FOR I←0 THRU 70 DO
BEGIN
ROTATE(-J1,0,0,π/18);
ROTATE(-J2,0,0,π/20);
TRANSL(-J3,0,0,0.1);
SHOW2(0,0);
END;
END;